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>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Command _Dr i ver 

> 

> This module controls the way in which commands received by 

> the Host are executed. It's main responsibility is to determine 

> whether a command string is protected by a check byte < the 

> original Profile commands are not > and then decode the command 

> and pass control over to the correct driver routine to 

> execute the command, fill exception handling at this level is 

> controlled by the individual command routines. 
> 

> PROCEDURE StartJCommand 

> PROCEDURE Pro_Read 

> FUNCTION ReadJCommon : BOOOERN 

> 

>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO External 
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>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Start_Command 

> Inputs : flssumes a command string in external memory; the 

> command byte must be in location $0000 (external > 

j. 

> Algorithm: 

> BEGIN 

> Initialize internal and external stack ptrs 

> ZeroHeader 

> ExeptJStat.Buf -Damage := False 

> ExcptJ5tat.Nzero_Stat := False 

> IF < Cache- index >= Cache-Length > 

> THEN Cache-Index := 

> OpCode := ExtMemI 3 

> IF OpCode. CommandType is FreeProcess type 

> THEN goto Strt_FreeProcess 

> IF OpCode. CommandType is protected by a checkbyte 

> THEN 

> IF N0T< CheckJCommandJString > 

> THEN floor t< Cmnd_Driver_Exception, 

> StartJCommand, CheckByteJIismatch > 

> IF < OpCode. instruction > 

> CommandL i m i t [ CommandType J > 

> THEN floor t< Cmnd_Driver_Exception 

> StartJCommand, 1 11 egal OpCode, Opcode ) 

> JHP §Command*C CommandType 1. Rout i neTab I e E Instruction 3 

> END 
> 

>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

. LSTON 
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.FIN 



Start-Command: 



Srp *MrkJSys ;get into a reasonable state 

Clr Sph 

Ld Spl .•Stack-Top 

Ld !r2,*.HIBVTE. StackPtr ;init external stack 

Ld !r3,«.LQUBYTE. StackPtr 

Ld !rO,*.HIBVTE. TopOf Stack 

Lde ?!!r2, !r0 

I new !!r2 

Ld !rO,*.LOWBVTE. TopOf Stack 

Lde §!!r2, !r0 

Cp Cache- 1 ndex , *CacheLeng th 

Jr L t , S t -LoadJCmnd 



Clr 



Cache- I ndex 



StJLoadJCmnd: 



St_L_Lp: 



Strt_ZH: 



Ld !r2,*.H!BVTE. Cmnd_Ptr 

Ld !r3,».L0WBYTE. Cmnd_Ptr 

Ld !rE,#.HIBYTE. CStatus4 

Ld !rF.,*.LOWBYTE. CStatus4 

Ld Irl^S ;nove 8 bytes 

Lde !r0,e!!r2 

Lde §!!rE, !r0 

I new ! !r2 

I new ! !rE 

Djnz 5r1,StJL_Lp 

Ld !rE,«. MBYTE. CStatus4 

Ld !rF,*.LQWBYTE. CStatus4 

Lde !r4.8! !rE 



Ld 
find 
Cp 
Jr 

Ld 
Ld 
Cal I 



!r&, !r4 
!r6,*Cn»ndType 
!r&,*$FO ; check for 
Nz,StrtJChkBiag 



'free bus command" 



!r2,«.MBVTE. Strt_FreeProcess 
! r3, # . L0I4BVTE . Str t_FreeProcess 
Bank _£a 1 1 



StrtJChkDiag: 



Cp !r6,*$10 ; check for diagnostic command 

Jr Mz.StrtJSwap 

Ld !r2,*.HIBVTE. SetjSeekNeeded 

Ld !r3,».LOI4BYTE. Set_SeekNeeded 

Call BankJCail 



Strt_Swap: 



Ld 

Swap 

Jr 



Seek_Type , *fiecessJQf fset 



!r6 

Z,Chk_lnst 



;r6 := CommandType 
;jump if no check byte in string 



Ld !r8, !r4 

find !r8.,*$0F ;get length of command string 

I new MrE ;get opcode 

Lde !r4,§!!rE 

Ld !rE,#.HlBYTE. Cmnd_Ptr 

Ld !rF,*.LOWBVTE. Crond-Ptr 

Cal I ChkJChk_Byte 

Jr Z.Chk-lnst 



Call 



flbort 



Chk_lnst: 



Cp 
Jr 



!r6,*Max_Cmnd_Types ; check for i I legal type 
Gt, lnst_flbort 



Or SlfTst_Result,SJfTst_Resul t ; check if we're not heal 

Jr Z,Chk_Limits 

Cp !r6,*01 ;only allow diagnostic commands 

Jr Z } Chk_L i m i ts 

Call Abort 



Chk_Liroits: Ld !rE,».HIBVTE. Cmnd_L i m i ts 

Ld !rF,*.LOWBYTE. Cmnd_Limits 

Add IrF, !r6 jget offset into table 

fide !rE,*G 

Ldc \rG f &\ !rE ;get limit 

Ld !r1,!r4 ;get instruction 

Cp Ir1,!r0 

Jr Le,Ok_inst jjump if legal Instruction 

I ns t_flbor t : Cal I flbor t 



Ld 


!rE,*.HIBVTE. 


Cmnd_Ptrs 


Ld 


!rF,*.LOWBVTE 


Cmnd_Ptrs 


Ri 


!r6 




Add 


!rF, !r6 


;get offset into table 


ftdc 


!rE,«0 




Ldc 


!rC,e»!rE 


;get inst routine ptr 


incw 


i i 




Ldc 


!rD,eMrE 




RI 


!r1 




Add 


!rD, !r1 


;get offset into table 


Adc 


!rC,*G 




Ldc 


!rE,§! !rC 


;get address to routine 


Incw 


1 !rC 




Ldc 


IrF.i! !rC 




Jp 


§!rE 


;jump to routine 
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;>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Command Routine Tables 



CmndJLimi ts: 


.06 


ProJCmnds 




.DB 


DiagjCmnds 




.DB 


SysJCmnds 


Cmnd_Ptrs : 


.014 


Pro_lnst 




.DM 


Diag-lnst 




.m 


Sys—lnst 


Pro_lnst: 


.DU 


Pro_Read 




.DW 


ProJUrite 




.DW 


Pro_UrUer 


Diag-inst: 


.DW 


D_Read_!D 




DU 


ReadjCStatus 




.DW 


ReadJSStatus 




.dm 


SendJServoCmnd 



;cmnd 
;cmnd t 
;cmnd 2 
;cmnd 3 



Sys_lnst: 



nu 




j ciiinu "r 


uw 


O^il^.j-I Da^ 4- j-iir..—. 

OcriU—Titis- JJJf e 


t Cull IU O 


nu 


3c L—Tid-U 1 vcr y 


j i_iiir iu kj 


DU 


$000C J So f t_JRese t 


*cmnd 7 


DU 


Send_Park 


;cmnd 8 


DU 


D_Read 


' t cmnd 9 


DU 


D_RendHdr 


* cmnd fl 

^ ^illl IU 3 1 


DU 


D_Ur i te 


j cmnd B 


DU 


S t nr^ Jinn 




DU 


D Read 5nrTh 1 


* riAnH n 


DU 


Wr_SprTbl 


;cmnd E 


DU 


Format 


;cmnd F 


DU 


D_!nitSprTbl 


;cmnd 10 


DU 


ReadJRbort 


; cmnd 1 1 


DU 


D_RstSrvo 


;cmnd 12 


DU 


ScanJJector 


;cmnd 13 


DU 


re RpnH 

Clt if riiK ! ts 




DU 


Sys_MrU 




LSTOFF 






DO 


Externa! 
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password 
password 
password 



>>>?>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Pro_Read { Profile Read > 



> This procedure emulates a Profile read operation. 

> 

> inputs: { none } 

> 

> Outputs: { none } 



Local Uariables: 

B lockS tatus : BVTE 
BlockNumber : 3 



{ Ir4 > 

f !rC:E > 



Global Uariables Changed: 
Log i ca I B I ockMumber 

fl I gor f thm : 

BEGIN 
C i ear Status 

Logical BlockNumber := Command. Logical BlockNumber 
Rck_Read< Pro_Read_Response > 
B I ockType , B I ockMumber- : = Oe t_Type< Prof i I e > 
Seek_Type := ficcess { Seek without flu to-Offset } 
SearchS tatus.. Element. Ptr := OverLappedSeek< Read, B I ockType, 

BlockNumber, > 

IF N0T< ReadJCommon > 

THEM Bata_Ex_Handfer< Read-Common . Error Type > 
ELSE 

IF < BikStat.SprCode = Bad-Block > 
THEM 

BlockMove< Buf2flrray.. RDummy > 

BataJExJHandlerC SpareBiock ) 
Moye4<: Statusflrray, Status > 
Clr_BsuX Statusflrray > 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO internal 

. LSTON 
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.FIN 



ProjRead: 



Ld Urk_!o+$fl,*Read_Response 
Cai I flck_Read 



Ca! ! 



C I r-NormStat 



Pro_Rd_Exi t: 



Ld ! rO, *ProJ_og_Df f set 

Ca i I Ld_Lgc I B i k; Log i ca I B ! ockNumber : = 

Ld !r8,*Profi!e 

Ld !r2,*.H!BVTE. Get_Tupe 

Ld !r3,«.L0WBYTE. Get_fype 

Cai! BankJCal! 

Cp !r8,*SprTbl_Type 

Jp Z,ReadJSprTbi 

Cp !r8,*!DJType 

Jp Z,Read_ID 

Ld Seek JType , *Rccess 

Ld Da ta_Type t *User -Type 

find BiskS tat, *$FF-MrJ0p 

Ld !r2,*.HIBVTE. OverLap 

Ld !r3,*.L0UBYTE. OverLap 

Ca!! BankJCal! 



Ca! 
Jr 



ReadJCommon 
Z f ProRd_Err 



Tm B!kStat,*B_BlGck ; check if block read ©as a bad biock 
Jr 2 , Rd_LecJMe 



Pro_Rd_BB: Ld !r2,*.WB¥TE. RBuf_To_Euf2 

Ld !r3,*.L0WBVTE. RBuf_ToJBuf2 

Ca!! BankJCal! 

Call RdJSprBiock 

ProRd_Er-r: Call Data_Ex_Wandler 

Rd_Leav e : Ld Mrk_ ! o+$R , * ! n i t -Response 

Clr Wrk_lo+$B ;Cflind_Pending, !Bsy := False 

Rd_Leave2: Cai! Ld_JStand_Stat 

Fid-Leave 1: Ld Hrk_lo+$C,*.HIB¥TE. Statusflrray 

Ld Mrk_lo+$D,#.LOWBS^TE. Statusflrray 

Jp CirJBsy 



- *:4c+:4i:4c.ic:4c:4;:4c^c:f :^*+:t:.+ 

LdJStandJStat: Ld 
Ld 
Ld 
Ld 

Ca! ! 



»r2,».H!BYTE. CStatusO 
!r3,«.L0WBYTE. CStatusO 
! rE , * . H I BVTE . StatusRrray 
!rF,*.LOMB¥TE. StatusRrray 
Mcve4_BQ 



Ret 



.LSTGFF 

.DO External 

. LSTGN 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



> 

> Function: ReadJCommon 

> 

> This procedure is responsible for a I ! the common functions 

> performed by all the read commands. 

> 

> Inputs: { none } 

> 

> Outputs: 

> ReadJCommon : BOOLEAN { zero flag, true if data exception } 

> ErrorCode. Error : BOOLEAN { !r6/Bit 7 > 

> ErrorCode. Type : 7 BITS { !rO/Bits 6:0 > 

> 

> Local variables: 

> Retry : BVTE { »r5 > 

> ErrorCode : BVTE { !r4 } 

> 

> Algorithm: 

> 

> BEGIN 

> ErrorCode . Error := False 

> IF NOK ReadBlock ) 

> THEN 

> ErrorCode . Error := True 

> ErrorCode . Type := Undetermined 

> IF Recovery 

> THEN 

> IF ServoError OR NoHeaderFound 

> THEN 

> ErrorCode . Error := False 

> Retry := 4 

> REPEAT 

> THEN 

> ServoRecovery 

> Retry .= Retry - 1 

> UNTIL NOK Retry = > OR ReadBlock 

> IF NOK ReadBlock > 

> THEN 

> ErrorCode . Error := True 

ErrorCode . Type := Undetermined 

> IF ServoError 

> THEN 

> SetStatus< ByteQ, Status_ServoError ) 

> Abort 

> IF NoHeaderFound 

> THEN ErrorCode. Type := BadBlock 

> ELSE 

> IF < ErrCnt > > 

> THEN 

> IF < ReadErrorCount > 2 > AND 

> < ReadErrorCount < 10 > 

> THEN ErrorType := SpareBlock 

> ELSE 

> IF ( ReadErrorCount = 10 5 

> THEN 

> IF Ecc 



> THEM ErrorCode . Type := SpareBlock 

> ELSE ErrorCode . Type := BadBlock 

> ELSE ErrorCode . Type : = ReadError 

> ReadJCommon := NOTC ErrorCode . Error > 

> END 
> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 

.LSTOli 
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.FIN 



ReadJCommon : 

find DiskS tat, #$FF-Ur jQp 

Clr !r4 

Cal I ReadBlock 

Jr Nz,RdJCmnJEnd 



Ld !r4,*RdError ; ErrorCode := Error, Undetermined 

Tm Excpt_Stat,*Recovery ; IF Recovery THEN ... 
Jr Z, RdJCmnJEnd 



Ld !r5,«4 ; Re try := 4 

RdJCmn_Lp: Tm RdStat,*RdSrvoErr + RdNoHdrFnd 

Jr Z.RdJCmnJCrct 

Ld !r2,».HIBVTE. SrvoRcvry 

Ld !r3,«.L0WBVTE. SrvoRcvry 

Call BankJCall 



Call ReadBlock 

Clr !r4 

Jr Nz, RdJCmnJEnd 

Djnz !r5,RdJCmn_Lp 



RdJCmnJSer-yo: 



Tm RdStat,*RdSrvoErr 
Jr Z,RdJCmn_Hdr 



Clr !r0 ;Byte 

Ld !rt,*StatJSrvo 

Cal I SetStatus 

Cal I Abort 

Rd_Cmn_Hdr: Tm RdStat,*RdNoHdrFnd 

Jr Z,RdJCmnJCret 



Ld ! r4 , «Error+Ex_HdrBad 

Jr RdJCmn_£nd 



Rd_£mn_Crct: Ld !rO,RdErrCnt 

find I r , *$0F ; mask off un»;an ted s ta tus 

Cp !rO,*SprThresh 

Jr Le,RdJCmn_RdErr 

Cp !r0,*10 

Jr Z,Rd_BadBioek 



Rd JSprB I ock : Ld I r 4 , *Err or+Ex JSprB I ock 

Jr RdJCmnJEnd 



RdJCmn-RdErr : 


Ld 


! r4, *Error+ExJReadErr 




Jr- 


r% _i .„ r - ._ _j 

RaJL-mnJEna 


Rd_BadBlock: 


Ld 


? r 4^ *Error+Ex_BadB 1 ock 


Rd_Cmn_End: 


Ld 


!r0, !r4 




Tcm 


!rO,*RdError 




Jp 


Bank_Ret 



. LSTOFF 



